﻿Public Partial Class Formulario_web11
    Inherits System.Web.UI.Page

    Dim ocdCliente As New Datos.Clientes()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Bguardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Bguardar.Click
        Try
            ocdCliente.NuevoCliente(Me.TBdni.Text, Me.TBnombre.Text, Me.TBdomicilio.Text, Me.TBfecha.Text, Me.TBtelefono.Text, Me.TBcelular.Text, Me.TBemail.Text, Me.TBusuario.Text, Me.TBcontra.Text)
        Catch ex As Exception
            Session.Add("Error", ex.Message)
            Response.Redirect("ManejarErrores.aspx")
        End Try
    End Sub

End Class